home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio 2000
/
Ham Radio 2000.iso
/
ham2000
/
logs
/
logbook
/
logdate.prg
< prev
next >
Wrap
Text File
|
1990-05-04
|
2KB
|
66 lines
*:*********************************************************************
*:
*: Program: LOGDATE.PRG
*:
*: System: PC-HAM Logbook
*: Author: Joe Kasser G3ZCZ
*: Copyright (c) 1990, Joe Kasser
*: Last modified: 05/04/90 13:42
*:
*: Called by: LOGFUNCT.PRG
*:
*: Uses: &LOGBOOK.DBF
*:
*: Documented 05/04/90 at 13:49 SNAP! version 3.12f
*:*********************************************************************
* LOGDATE VER 860502 COPYRIGHT (c) JOE KASSER G3ZCZ 1986
USE &logbook
GOTO BOTTOM
STORE DATE TO sdate
GOTO TOP
@ 24,1 SAY "WHAT DATE DO YOU WANT TO SEE ?"
@ 24,32 GET sdate
READ
CLEAR
@ 10,10 SAY 'STANDBY WHILE I LOCATE THE PAGE WITH THE ENTRIES FOR '
@ 12,30 SAY sdate
?
LOCATE FOR DATE = sdate
IF EOF() .or. BOF()
SET COLOR TO W+/R,W+/RB,BG+
@ 14, 20 SAY 'SORRY: no QSOs in the log for '
@ 16, 30 SAY sdate
SET COLOR TO GR+/B,W+/RB,BG+
@ 20, 1 SAY ''
ELSE
CLEAR
STORE 0 TO lcount
SET COLOR TO GR+/B,W+/RB,BG+
? ' QSOs FOR ',sdate
SET COLOR TO W+/R,W+/RB,BG+
@ 2,5 SAY "ENTRY DATE TIME CALL BAND PWR MODE RX TX "
@ 2,58 SAY "S R COMMENTS"
SET COLOR TO GR+/B,W+/RB,BG+
DO WHILE sdate = DATE .and. .not. EOF()
? RECNO(),DATE,TIME,CALL,band,Power,mode,rx,tx,qslsent,qslrx,comments
STORE lcount + 1 TO lcount
IF lcount > 20
WAIT
CLEAR
SET COLOR TO GR+/B,W+/RB,BG+
STORE 0 TO lcount
? ' QSOs FOR ',sdate
SET COLOR TO W+/R,W+/RB,BG+
@ 2,5 SAY "ENTRY DATE TIME CALL BAND PWR MODE RX TX "
@ 2,58 SAY "S R COMMENTS"
SET COLOR TO GR+/B,W+/RB,BG+
ENDIF
SKIP
ENDDO
ENDIF
WAIT
RELEASE sdate,lcount
USE
RETURN
*: EOF: LOGDATE.PRG